home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S14.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-11-14  |  896 b   |  42 lines
  1. 10  CLS:PRINT "LINEAR REGRESSION"
  2. 20  PRINT
  3. 30  PRINT "NUMBER OF KNOWN POINTS";
  4. 40  INPUT N
  5. 50  J = 0
  6. 60  K = 0
  7. 70  L = 0
  8. 80  M = 0
  9. 90  R2 = 0
  10. 100  FOR I = 1  TO N
  11. 110  PRINT "X,Y OF POINT" ;I;
  12. 120  INPUT X,Y
  13. 130  J = J + X
  14. 140  K = K + Y
  15. 150  L = L + X ^ 2
  16. 160  M = M + Y ^ 2
  17. 170  R2 = R2 + X * Y
  18. 180  NEXT I
  19. 190  B = (N * R2 - K * J) / (N*L - J ^ 2)
  20. 200  A = (K-B * J) /N
  21. 210  PRINT
  22. 220  PRINT "F (X) = " ;A; " + (" ;B; " * X ) "
  23. 230  J = B * (R2-J * K/N)
  24. 240  M = M - K ^ 2/N
  25. 250  K = M - J
  26. 260  PRINT
  27. 270  R2 = J/M
  28. 280  PRINT "COEFFICIENT OF DETERMINATION (R^2) ="; R2
  29. 290  PRINT "COEFFICIENT OF CORRELATION ="; SQR (R2)
  30. 300  PRINT "STANDARD ERROR OF ESTIMATE ="; SQR (K/ (N-2))
  31. 310  PRINT
  32. 320  PRINT "INTERPOLATION: (ENTER X=0 TO END PROGRAM)"
  33. 330  PRINT "X =";
  34. 340  INPUT X
  35. 350  IF X = 0  THEN 390
  36. 360  PRINT "Y ="; A + B * X
  37. 370  PRINT
  38. 380  GOTO  330
  39. 385  INPUT "Run again ";A$
  40. 387  IF A$="Y" OR A$="y" THEN 10
  41. 390  RUN "STAT"
  42.